home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / Hydra3_015.lha / PFiles / Hydra3 / Hydra3-Lost.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-01  |  3KB  |  77 lines
  1. /********************** Hydra/3 - Lost Carrier Unit *************************
  2. *                                        *
  3. *      Copyright 1995 by Dreamer/1oo% and Neurodancer/1oo%            *
  4. *                                        *
  5. ****************************************************************************/
  6.  
  7. signal on Syntax
  8.  
  9. /******************************* CONFIG **********************************/
  10.  
  11. /* catalogs :) */
  12.  
  13. resume.0="c7Hello v1}!n2There are some incomplete Hydra-Uploads from you. If you want to resume them, you can transfer the files in your next Hydra session. You will be prompted for whether resuming or deleting your incomplete uploads before the Hydra session begins.n2c1Note: c7You can NOT resume the file(s) with any other than the Hydra protocol.n2Following is a list of your resumable files:n1"
  14. resume.1="c7Hallo v1}!n2Da sind noch unvollstaendige Hydra-Uploads von Dir da! Wenn Du den Upload vervollstaendigen willst, dann kannst Du das beim naechsten Hydratransfer machen, indem Du das File nochmal mitschickst. Vor dem Uebertragungsbeginn wirst Du nochmal gesondert gefragt, ob Du die Files beenden oder loeschen willst.n2c1Achtung: c7Du kannst die Files NUR mit dem Hydra-Protokoll beenden!n2Hier ist die Liste der unvollstaendigen Files:n1"
  15.  
  16. /**************************** set some stuff *******************************/
  17.  
  18. options results
  19. bufferflush
  20.  
  21. setobject 0 ; putuser 68
  22. getuser 39 ; uucpdir="Mail:Users/"result
  23. getuser 1100452 ; lng=result
  24. getuser 2307346 ; temppath=result
  25.  
  26. /********************** if AO-Bit was set, unset it ************************/
  27.  
  28. getuser 1100662 ; privs=d2c(result+(result<0)*256)
  29. aopriv=BitTST(privs,5)
  30. if getclip(port'aopriv')='SET!' then do
  31.     privs=c2d(BitCLR(privs,5))
  32.     privs=privs-(privs>127)*256
  33.     setobject privs ; putuser 1100662
  34.     call setclip('aopriv')
  35. end
  36.  
  37. /*************************** Enable Idle-Timer *****************************/
  38.  
  39. setobject 0 ; putuser 1110341
  40.  
  41. /*************** check, if there where some incomplete Uploads *************/
  42.  
  43. if exists(uucpdir'/Hydra.BAD/BAD-XFER.LOG') then do
  44.     HydDir=showdir(uucpdir'/Hydra.BAD','files')
  45.     if HyDir='' then break
  46.     else do
  47.         open(mail,temppath||port"Hydramail","W")
  48.         writeln(mail,resume.lng)
  49.         transmit "found UL!"
  50.         open(bad,uucpdir'/Hydra.BAD/BAD-XFER.LOG','R')
  51.             do until ~eof(bad)
  52.                 Logline = readln(bad)
  53.                 parse var logline fname badname fsize x
  54.                 badsize=word(statef(uucpdir"/Hydra.BAD/"badname),2)
  55.                 writeln(mail,"c6"left(fname,20," ")" c7- c6"right(badsize,8," ")" c7of c6"right(fsize,8," ")" c7Bytes")
  56.             end
  57.         close(bad);close(mail)
  58.  
  59.         cleareditor
  60.         setmailsubj "Hydra - Resume"
  61.         loadeditor temppath||port"Hydramail"
  62.         getuser 40; writemail result
  63.     end
  64. end
  65.  
  66. /*************************** Clean Up temppath *****************************/
  67.  
  68. address command 'delete 'temppath||port'HydFileLst 'temppath||port'HydraLog 'temppath||port'Hydramail'
  69.  
  70. /********************************* END ! ***********************************/
  71.  
  72. exit
  73.  
  74. syntax:
  75. sendstring "Error occured! Line: "sigl", "rc" - "errortext(rc)
  76. exit
  77.